### Save code in a file "demo.r" and run with 2 processors by
### SHELL> mpiexec -np 2 Rscript demo.r
### Initial.
suppressMessages(library(pbdMPI, quietly = TRUE))
init()
if(comm.size() != 2){
comm.cat("2 processors are requried.\n", quiet = TRUE)
finalize()
}
### Examples.
comm.warning("test warning.\n")
comm.warnings()
comm.stop("test stop.\n")
### Finish.
finalize()
Run the code above in your browser using DataLab